﻿Imports DTO
Public Class Galdino
    Inherits System.Web.UI.MasterPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim objUsuario As UsuarioDTO

        If Session("login") IsNot Nothing Then
            objUsuario = Session("login")
            ExibirUsuarioLogado()
        Else
            ExibirUsuarioNaoLogado()
        End If
    End Sub

    Protected Sub lbLogout_Click(sender As Object, e As EventArgs) Handles lbLogout.Click
        If Session("login") IsNot Nothing Then
            Session("login") = Nothing
        End If

        Response.Redirect("PgInicial.aspx")
    End Sub

    Private Sub ExibirMenuAdminstrativo()
        Dim objUsuario As UsuarioDTO

        If Session("login") IsNot Nothing Then
            objUsuario = Session("login")

            lbLogin.Visible = False
            lblLogin.Visible = False

            lblUsuario.Text = "Bem vindo " & objUsuario.pUsuario
            lblUsuario.Visible = True

            lbLogout.Visible = True

            If objUsuario.pTipo.ToUpper = "ADM" Then

                btnCadastroCliente.Visible = True
                btnCadastroProduto.Visible = True
                btnCadastroTipoProduto.Visible = False
                btnCadastroTipoPagamento.Visible = False
                btnPgInicial.Visible = False
                btnCarrinho.Visible = False
                btnContato.Visible = False
                btnProdutos.Visible = False
                btnServicos.Visible = False
                btnLocalizacao.Visible = False
            End If
        End If

    End Sub

    Private Sub ExibirMenuCliente()
        Dim objUsuario As UsuarioDTO

        If Session("login") IsNot Nothing Then
            objUsuario = Session("login")

            lbLogin.Visible = False
            lblLogin.Visible = False

            lblUsuario.Text = "Bem vindo " & objUsuario.pUsuario
            lblUsuario.Visible = True

            lbLogout.Visible = True

            If objUsuario.pTipo.ToUpper = "CLI" Then
                btnPgInicial.Visible = True
                btnCarrinho.Visible = True
                btnContato.Visible = True
                btnProdutos.Visible = True
                btnServicos.Visible = True
                btnLocalizacao.Visible = True

                btnCadastroTipoPagamento.Visible = False
                btnCadastroCliente.Visible = False
                btnCadastroProduto.Visible = False
                btnCadastroTipoProduto.Visible = False
            End If
        End If
    End Sub

    Private Sub ExibirMenu()
        If IsNothing(Session("login")) Then

            btnPgInicial.Visible = True
            btnContato.Visible = True
            btnProdutos.Visible = True
            btnServicos.Visible = True
            btnLocalizacao.Visible = True

            btnCarrinho.Visible = False
            btnCadastroTipoPagamento.Visible = False
            btnCadastroCliente.Visible = False
            btnCadastroProduto.Visible = False
            btnCadastroTipoProduto.Visible = False
        End If

        lbLogin.Visible = True
        lblLogin.Visible = True
        lblUsuario.Visible = False
        lbLogout.Visible = False
    End Sub

    Sub ExibirUsuarioLogado()
        ExibirMenuAdminstrativo()
        ExibirMenuCliente()
    End Sub

    Sub ExibirUsuarioNaoLogado()
        ExibirMenu()
    End Sub

    Protected Sub btnPgInicial_Click(sender As Object, e As EventArgs) Handles btnPgInicial.Click
        Response.Redirect("PgInicial.aspx")
    End Sub

    Protected Sub btnProdutos_Click(sender As Object, e As EventArgs) Handles btnProdutos.Click
        Response.Redirect("Produtos.aspx")
    End Sub

    Protected Sub btnServicos_Click(sender As Object, e As EventArgs) Handles btnServicos.Click
        Response.Redirect("Servicos.aspx")
    End Sub

    Protected Sub btnLocalizacao_Click(sender As Object, e As EventArgs) Handles btnLocalizacao.Click
        Response.Redirect("Localizacao.aspx")
    End Sub

    Protected Sub btnContato_Click(sender As Object, e As EventArgs) Handles btnContato.Click
        Response.Redirect("Contato.aspx")
    End Sub

    Protected Sub btnCadastroProduto_Click(sender As Object, e As EventArgs) Handles btnCadastroProduto.Click
        Response.Redirect("CadProdutos.aspx")
    End Sub

    Protected Sub btnCadastroCliente_Click(sender As Object, e As EventArgs) Handles btnCadastroCliente.Click
        Response.Redirect("CadCliente.aspx")
    End Sub

    Protected Sub btnCadastroTipoPagamento_Click(sender As Object, e As EventArgs) Handles btnCadastroTipoPagamento.Click
        Response.Redirect("Pagamento.aspx")
    End Sub

    Protected Sub btnCadastroTipoProduto_Click(sender As Object, e As EventArgs) Handles btnCadastroTipoProduto.Click
        Response.Redirect("Produtos.aspx")
    End Sub

    Protected Sub btnCarrinho_Click(sender As Object, e As EventArgs) Handles btnCarrinho.Click
        Response.Redirect("Carrinho.aspx")
    End Sub



End Class